tenMeanDist <- rnorm(100, mean = 10, sd = 1)
zeroMeanDist <- rnorm(100, mean = 0, sd = 1)

testObj <-
  t.test(
    tenMeanDist, zeroMeanDist,
    paired = FALSE, var.equal = FALSE
  )
tVal_10_0 <- testObj$statistic
print(paste("tVal_10_0: ", tVal_10_0))

testObj <-
  t.test(
    zeroMeanDist, tenMeanDist,
    paired = FALSE, var.equal = FALSE
  )
tVal_0_10 <- testObj$statistic
print(paste("tVal_0_10: ", tVal_0_10))


testObj <-
  t.test(
    tenMeanDist, zeroMeanDist,
    alternative = "two.sided",
    paired = FALSE, var.equal = FALSE
  )
tVal_10_0 <- testObj$statistic
print(paste("tVal_10_0, two.sided: ", tVal_10_0))

testObj <-
  t.test(
    zeroMeanDist, tenMeanDist,
    alternative = "two.sided",
    paired = FALSE, var.equal = FALSE
  )
tVal_0_10 <- testObj$statistic
print(paste("tVal_0_10, two.sided: ", tVal_0_10))

testObj <-
  t.test(
    tenMeanDist, zeroMeanDist,
    alternative = "greater",
    paired = FALSE, var.equal = FALSE
  )
tVal_10_0 <- testObj$statistic
print(paste("tVal_10_0, greater: ", tVal_10_0))

testObj <-
  t.test(
    zeroMeanDist, tenMeanDist,
    alternative = "greater",
    paired = FALSE, var.equal = FALSE
  )
tVal_0_10 <- testObj$statistic
print(paste("tVal_0_10, greater: ", tVal_0_10))

testObj <-
  t.test(
    tenMeanDist, zeroMeanDist,
    alternative = "less",
    paired = FALSE, var.equal = FALSE
  )
tVal_10_0 <- testObj$statistic
print(paste("tVal_10_0, less: ", tVal_10_0))

testObj <-
  t.test(
    zeroMeanDist, tenMeanDist,
    alternative = "less",
    paired = FALSE, var.equal = FALSE
  )
tVal_0_10 <- testObj$statistic
print(paste("tVal_0_10, less: ", tVal_0_10))